{----------------------FATORIAL ITERATIVO------------------------------------}
inicio
    inteiro:x, y, fat;
    imprima("Digite um numero: ");
	  leia(x);
	  y <- x;
    fat <- x;
    enquanto (y > 1) faca  
		inicio
			y <- y -1;
			fat <- fat * y;
		fim
    fimenquanto;
	
	imprima("\nO fatorial de ", x," e: ",fat);
fim